home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-12-20  |  3.2 KB  |  111 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "CrackersConvert KeyGen"
  4.    ClientHeight    =   2055
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   3135
  8.    Icon            =   "Form1.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2055
  11.    ScaleWidth      =   3135
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.Frame Frame2 
  14.       Height          =   615
  15.       Left            =   0
  16.       TabIndex        =   5
  17.       Top             =   1440
  18.       Width           =   3135
  19.       Begin VB.CommandButton Command3 
  20.          Caption         =   "&Exit"
  21.          Height          =   255
  22.          Left            =   2160
  23.          TabIndex        =   8
  24.          Top             =   240
  25.          Width           =   855
  26.       End
  27.       Begin VB.CommandButton Command2 
  28.          Caption         =   "&About"
  29.          Height          =   255
  30.          Left            =   1080
  31.          TabIndex        =   7
  32.          Top             =   240
  33.          Width           =   975
  34.       End
  35.       Begin VB.CommandButton Command1 
  36.          Caption         =   "&Generate"
  37.          Height          =   255
  38.          Left            =   120
  39.          TabIndex        =   6
  40.          Top             =   240
  41.          Width           =   855
  42.       End
  43.    End
  44.    Begin VB.Frame Frame1 
  45.       Height          =   1335
  46.       Left            =   0
  47.       TabIndex        =   0
  48.       Top             =   0
  49.       Width           =   3135
  50.       Begin VB.TextBox Text2 
  51.          Height          =   285
  52.          Left            =   120
  53.          TabIndex        =   2
  54.          Top             =   960
  55.          Width           =   2895
  56.       End
  57.       Begin VB.TextBox Text1 
  58.          Height          =   285
  59.          Left            =   120
  60.          TabIndex        =   1
  61.          Top             =   360
  62.          Width           =   2895
  63.       End
  64.       Begin VB.Label Label2 
  65.          Caption         =   "Registration Code"
  66.          Height          =   255
  67.          Left            =   840
  68.          TabIndex        =   4
  69.          Top             =   720
  70.          Width           =   1335
  71.       End
  72.       Begin VB.Label Label1 
  73.          Caption         =   "User Name"
  74.          Height          =   255
  75.          Left            =   1080
  76.          TabIndex        =   3
  77.          Top             =   120
  78.          Width           =   855
  79.       End
  80.    End
  81. Attribute VB_Name = "Form1"
  82. Attribute VB_GlobalNameSpace = False
  83. Attribute VB_Creatable = False
  84. Attribute VB_PredeclaredId = True
  85. Attribute VB_Exposed = False
  86. Private Sub Command1_Click()
  87. Dim RegString, RegConv, RegCode, RegMult
  88.     If Len(Text1.Text) > 4 Then
  89.         RegString = Text1.Text
  90.         RegConv = Mid(RegString, 1, 5)
  91.         RegConv = Str(Asc(RegConv))
  92.     Else
  93.         MsgBox ("User Name Must Be At Least Five Characters Long")
  94.         GoTo Quit
  95.     End If
  96.         RegMult = RegConv * 20
  97.         RegCode = "REG-" & RegMult & "-CODE"
  98.         Text2.Text = RegCode
  99. Quit:
  100. End Sub
  101. Private Sub Command2_Click()
  102.     frmAbout.Show
  103. End Sub
  104. Private Sub Command3_Click()
  105.     End
  106. End Sub
  107. Private Sub Form_Load()
  108.     Left = (Screen.Width - Width) \ 2
  109.     Top = (Screen.Height - Height) \ 2
  110. End Sub
  111.